home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / shared.dir / 07581_WIN_QT(new).ls < prev    next >
Encoding:
Text File  |  1996-04-18  |  1.7 KB  |  113 lines
  1. global gDVExitLock
  2.  
  3. on WIN_QT_Init
  4.   mci("capability QTWVideo can play ")
  5.   if the result = "true" then
  6.     set vRetValue to 1
  7.   else
  8.     set vRetValue to 0
  9.   end if
  10.   put vRetValue
  11.   return vRetValue
  12. end
  13.  
  14. on WIN_QT_Done
  15. end
  16.  
  17. on WIN_QT_Use aFName
  18.   set vHWnd to gSIUtils(mGetNamedWindowHdl, "Stage")
  19.   set gDVExitLock to the exitLock
  20.   set the exitLock to 0
  21.   mci("open " & aFName & ".mov type QTWVideo alias dvvid parent " & vHWnd & " style child")
  22. end
  23.  
  24. on WIN_QT_Play aFrom, aTo
  25.   global gDVFullScreen
  26.   set vCmd to "play dvvid from " & aFrom
  27.   if aTo <> -1 then
  28.     set vCmd to vCmd & " to " & aTo
  29.   end if
  30.   mci(vCmd)
  31. end
  32.  
  33. on WIN_QT_Pause
  34.   mci("pause dvvid")
  35. end
  36.  
  37. on WIN_QT_PauseP
  38.   mci("status dvvid mode")
  39.   if the result = "paused" then
  40.     return 1
  41.   else
  42.     return 0
  43.   end if
  44. end
  45.  
  46. on WIN_QT_Stop
  47.   mci("stop dvvid")
  48. end
  49.  
  50. on WIN_QT_StopP
  51.   mci("status dvvid mode")
  52.   if the result = "Stopped" then
  53.     return 1
  54.   else
  55.     return 0
  56.   end if
  57. end
  58.  
  59. on WIN_QT_Resume
  60.   mci("resume dvvid")
  61. end
  62.  
  63. on WIN_QT_SetPos aPos
  64.   mci("seek dvvid to " & aPos)
  65. end
  66.  
  67. on WIN_QT_GetPos
  68.   mci("status dvvid position")
  69.   return value(the result)
  70. end
  71.  
  72. on WIN_QT_PlayP
  73.   mci("status dvvid mode")
  74.   if the result = "playing" then
  75.     return 1
  76.   else
  77.     return 0
  78.   end if
  79. end
  80.  
  81. on WIN_QT_SetPlayArea aX, aY, aW, aH
  82.   mci("put dvvid window at " & aX & " " & aY & " " & aW & " " & aH)
  83. end
  84.  
  85. on WIN_QT_FullScreen aFlag
  86. end
  87.  
  88. on WIN_QT_FullScreenP
  89.   return 0
  90. end
  91.  
  92. on WIN_QT_FrameRate
  93.   mci("status dvvid nominal frame rate")
  94.   return value(the result) / 1000
  95. end
  96.  
  97. on WIN_QT_Close
  98.   mci("close dvvid")
  99.   set the exitLock to gDVExitLock
  100. end
  101.  
  102. on WIN_QT_Idle
  103.   nothing()
  104. end
  105.  
  106. on WIN_QT_Show
  107.   mci("window dvvid state show")
  108. end
  109.  
  110. on WIN_QT_Hide
  111.   mci("window dvvid state hide")
  112. end
  113.